home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Learning Director.dcr / Internal_4_SS_LessonStep.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  503 b   |  17 lines
  1. on exitFrame
  2.   SG(#gPaused, 0)
  3.   set labelName to the frameLabel
  4.   if labelName = 0 then
  5.     put "ERROR: Required Label missing from current frame"
  6.     halt()
  7.   end if
  8.   set pos to offset("-", labelName)
  9.   set stepNum to value(chars(labelName, pos + 1, length(labelName)))
  10.   SG(#gStepNum, stepNum)
  11.   set lineNum to GG(#gStepNum) + 1
  12.   selectLine(GG(#gActiveScroller), lineNum, 0)
  13.   if not IsListLineVisible(GG(#gActiveScroller), lineNum) then
  14.     showTextAt(GG(#gActiveScroller), -lineNum)
  15.   end if
  16. end
  17.